home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / slatex / structs.ss < prev    next >
Text File  |  1993-11-07  |  2KB  |  79 lines
  1. ;structs.ss
  2. ;SLaTeX Version 1.99
  3. ;Structures used by SLaTeX
  4. ;(c) Dorai Sitaram, December 1991, Rice University
  5.  
  6. (define *max-line-length* 200)
  7.  
  8. (defenum
  9.   ;possible values of =space
  10.   &void-space
  11.   &plain-space
  12.   &init-space
  13.   &init-plain-space
  14.   &paren-space
  15.   &bracket-space
  16.   "e-space
  17.   &inner-space)
  18.  
  19. (defenum
  20.   ;possible values of =tab
  21.   &void-tab
  22.   &set-tab
  23.   &move-tab
  24.   &tabbed-crg-ret
  25.   &plain-crg-ret)
  26.  
  27. (defenum
  28.   ;possible values of =notab
  29.   &void-notab
  30.   &begin-comment
  31.   &mid-comment
  32.   &begin-string
  33.   &mid-string
  34.   &end-string
  35.   &begin-math
  36.   &mid-math
  37.   &end-math)
  38.  
  39. (defrecord make-raw-line
  40.   =rtedge =char =space =tab =notab)
  41.  
  42. (define make-line
  43.   (lambda ()
  44.     ;makes a "line" record 
  45.     (let ((l (make-raw-line)))
  46.       (setf (of l =rtedge) 0)
  47.       (setf (of l =char) (make-string *max-line-length* #\space))
  48.       (setf (of l =space) (make-string *max-line-length* &void-space))
  49.       (setf (of l =tab) (make-string *max-line-length* &void-tab))
  50.       (setf (of l =notab) (make-string *max-line-length* &void-notab))
  51.       l)))
  52.  
  53. (define *line1* (make-line))
  54. (define *line2* (make-line))
  55.  
  56. (defrecord make-case-frame 
  57.   =in-ctag-tkn =in-bktd-ctag-exp =in-case-exp)
  58.  
  59. (defrecord make-bq-frame 
  60.   =in-comma =in-bq-tkn =in-bktd-bq-exp)
  61.  
  62. (define *latex-paragraph-mode?* 'forward)
  63.  
  64. (define *intext?* 'forward)
  65. (define *code-env-spec* "UNDEFINED")
  66.  
  67. (define *in* 'forward)
  68. (define *out* 'forward)
  69.  
  70. (define *in-qtd-tkn* 'forward)
  71. (define *in-bktd-qtd-exp* 'forward)
  72.  
  73. (define *in-mac-tkn* 'forward)
  74. (define *in-bktd-mac-exp* 'forward)
  75.  
  76. (define *case-stack* 'forward)
  77.  
  78. (define *bq-stack* 'forward)
  79.